home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / WWW / http / www.amitrix.com / Install_2.1_upgrade < prev    next >
Text File  |  1997-02-09  |  21KB  |  698 lines
  1. ; $VER: Install_AWeb-II 2.1 bc 0.5 (5.11.96)
  2. ; Description: Installer script for AWeb-II 2.1 update.
  3.  
  4. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  5.  
  6. ; all strings used in this installer script
  7. (set #need39 "This program requires OS 3.0 or later to function.")
  8. (set #needAWebII
  9.    (cat 
  10.         "This update requires that you own the commercial AWeb-II package.\n"
  11.         "AWeb-II: assignment not found.\n"
  12.         "You do not seem to have AWeb-II installed."
  13.    )
  14. )
  15. (set #need2point0
  16.    (cat
  17.       "This update can only upgrade from AWeb-II 2.0 to 2.1\n"
  18.       "Your AWeb-II:AWeb-II program is version "
  19.    )
  20. )
  21. (set #need512k "This installation procedure needs at least 512 kB available space in your T: directory.")
  22. (set #need1meg "The update from AWeb-II 2.0 to 2.1 will require at least 1 megabyte available space in your AWeb-II: directory.")
  23.  
  24. (set #welcome
  25.    (cat "AWeb-II 2.1 is a major upgrade from the 2.0 version.\n"
  26.         "It supports all of the HTML 3.2 standard including tables.  "
  27.         "The new features include a hard disk cache, graphic printing, "
  28.         "string search, and an improved user configurable interface.\n\n"
  29.         "This installation procedure will install the AWeb-II browser update version "
  30. ;        ("%ld.%ld " awv awr)
  31.         "2.1 "
  32.         "and the necessary updated ClassAct gadget classes and updated plugins on your system."
  33.    )
  34. )
  35. (set #aweb-docs "AWeb-II documentation")
  36. (set #registering "Upgrading your personal copy of AWeb-II from 2.0 to 2.1")
  37. (set #registrationfail
  38.    (cat
  39.          "Unable to upgrade the AWeb-II 2.0 program to the 2.1 version\n"
  40.          "Try running this installer script again.\n"
  41.          "If you are unable to install your AWeb-II upgrade,\n"
  42.          "send email to support@amitrix.com\n"
  43.          "Include your name, serial number, and email address"
  44.          " and a description of your problem."
  45.    )
  46. )
  47. (set #upgradingAWebII "Upgrading the AWeb-II 2.0 executable to version 2.1... please wait")
  48.  
  49. (set #CacheDirname-prompt
  50.    (cat
  51.        "AWeb-II 2.1 now caches recently viewed pages on your hard disk.\n"
  52.        "Please select the directory where you want the hard disk Cache to be created.\n"
  53.        "A directory 'Cache' will be created here."
  54.    )
  55. )
  56. (set #CacheDirname-help
  57.    (cat
  58.        "The cache will speed up your web browsing and also allow you to view offline "
  59.        "pages you have recently visited.\n\n"
  60.        "You should select a location with enough free space to allow a large cache."
  61.        "\n\n"
  62.        @askdir-help
  63.    )
  64. )
  65.  
  66. (set #docsdelete "The old AWeb-II 2.0 documentation in the AWeb-II:Docs drawer will be deleted.")
  67. (set #helpdocsdelete
  68.    (cat
  69.       "Your old AWeb-II:Docs directory will be deleted.\n"
  70.       "If you have stored important files in that directory, you should skip this step.  "
  71.       "If you skip this step, the new documentation will be added into the directory replacing any old version 2.0 documentation."
  72.    )
  73. )
  74. (set #awebpcnote "If you have more than one set of preference settings for AWeb-II 2.0, you can use the AWebpc program to convert them manually.")
  75. (set #pluginmodprompt "Have you modified the AWeb-II 2.0 plugin ARexx scripts?")
  76. (set #pluginmodhelp "If you have modified the scripts, your modified copies will be saved with a suffix of .old")
  77. (set #pluginsave "Your modified plugins will be saved with the suffix '.old' and the new 2.1 plugins will be put in their place.")
  78.  
  79. (set #installing "Installing ")
  80. (set #buttonanims "alternate buttons and animations")
  81. (set #fixfontdelay "Running the FixFonts program may take a few moments... please wait")
  82. (set #fixfonts "Once the installation process is complete, run the FixFonts program included with Workbench.")
  83. (set #pluginupdate " 2.1 plugin upgrade")
  84. (set #languages-prompt "Please select which language catalog(s) you want to install")
  85. (set #languageGreek-message
  86.    (cat
  87.       "The Greek translation can only be used if you own the (commercial)"
  88.       "Greek Workbench Package, (c) by AC Software.\n\n"
  89.    )
  90. )
  91.      
  92. (set #languages-help
  93.    (cat
  94.       #languageGreek-message      
  95.       @askoptions-help
  96.    )
  97. )
  98.  
  99. (set #bye
  100.    (cat "In case you need help configuring or using AWeb-II, press the HELP key "
  101.       "when AWeb-II is active to bring up the new documentation."
  102.       "  Once you have confirmed that the new AWeb-II program is working"
  103.       " you can delete the old 2.0 version in file AWeb-II:AWeb-II.old\n\n"
  104.       "We hope you will enjoy using AWeb-II 2.1."
  105.    )
  106. )
  107.  
  108.  
  109. ; ---------------------------------------------------------------------------
  110.  
  111. ; ClassAct installation procedure V 1.5 (12.5.96) by Osma Ahvenlampi
  112.  
  113. ; Modified by Brant Coghlan for use with AWeb-II
  114.  
  115. ; **** NOTE - THE CLASSACT INSTALLATION SCRIPT IS CHANGED    ****
  116. ; **** FOR THE AWEB-II INSTALLATION                          ****
  117. ; **** DO NOT COPY THIS SCRIPT FOR YOUR OWN USE.             ****
  118. ; **** USE THE ORIGINAL CLASSACT INSTALLATION SCRIPT INSTEAD ****
  119.  
  120. ; percentage of the size of included ClassAct classes versus the whole
  121. ; distribution (ie. total "complete" percentage after ClassAct is installed)
  122. (set classact-complete 30)
  123.  
  124. ; ClassAct installer scripts
  125. (set #classdest-prompt "Please select the directory where you want the ClassAct classes installed.\n(See help for details)")
  126. (set #classdest-help (cat "ClassAct is a GUI toolkit consisting of shared BOOPSI classes.\n\nAWeb-II requires the ClassAct classes installed on your system. "
  127.     (if v39 (cat "OS 3.0 has a standard directory for BOOPSI classes, the SYS:Classes directory. It is recommended that you install ClassAct there.")
  128.             (cat "OS 2.0 does not have a standard place for disk resident BOOPSI classes. In OS 3.0 these classes are stored in the SYS:Classes directory. It is recommended that you create this directory and install ClassAct there.\nThis directory must be added in the LIBS: assign. This can be done by placing the command\nAssign >NIL: LIBS: SYS:Classes ADD\nto User-Startup. This installer will do this for you.")
  129.         )
  130.     )
  131. )
  132. (set #classes-020 "Do you want to use the OS 3.0, 020 optimised version of ClassAct?")
  133. (set #help-020 "Some ClassAct libraries have versions optimised for use on 020 or better equipped OS 3.0 or later machines. If your Amiga is so equipped, you should install these. The 68000/2.0 versions will also work, but are slightly slower.")
  134. (set #noclasses-message "The directory you selected for your ClassAct classes is not a part of the LIBS: assign.\n\nIt is necessary to add this assign so that the classes will be found properly.")
  135. (set #creating-dir "Creating directory ")
  136. (set #usbackup-prompt "User-Startup will now be backed up.")
  137. (set #usbackup-help "This installer will next make a modification in User-Startup. Before doing this the old User-Startup will be backed up to S:User-Startup.old")
  138. (set #adding-1 "Adding ")
  139. (set #adding-2 " to LIBS: assign\n")
  140. (set #adding-help "This is necessary so that the custom classes can be found.")
  141. (set #junod-button "It seems you have a late Commodore 'V42' button.gadget installed on your system.\n\nClassAct's button.gadget is far more capable than this gadget, and we recommend that you replace it. The ClassAct button.gadget is backwards compatible to the Commodore gadget. Do you wish to back up the Commodore gadget and replace it with the ClassAct version?")
  142. (set #junod-backed "The Commodore 'V42' button.gadget has been backed up with the name button.gadget.v42.\n\nThe ClassAct button.gadget will be installed in its place.")
  143. (set #junod-kept "The Commodore 'V42' button.gadget was not replaced with the more capable ClassAct version.\n\nPrograms depending on the availability of ClassAct-only features are likely to work incorrectly.")
  144. (set #caprefs-message "CAPrefs is a small utility that sets some user preferences for ClassAct applications. These include the bevel style (Thin/Gadtools/Xen), window backfills, and group label details.\n\nPlease use the ClassAct GUI prefs editor to alter the default settings provided. ClassAct prefs will be installed in your system Prefs drawer.\n\n")
  145. (set #caprefs-startup-1 "Adding the command\n\n")
  146. (set #caprefs-startup-2 "\n\nto your s:User-Startup.")
  147.  
  148.  
  149.  
  150. (procedure P_install-classact
  151. ; call this procedure to copy the classes included in the Classes directory
  152. ; in your distribution dir.
  153.  
  154.     (
  155.     if (exists "Classes") ; The archive contains a ClassAct library update.
  156.     (
  157.  
  158.         (set comp-dest  (/ (* classact-complete 2) 10))
  159.         (set comp-libs  (/ (* classact-complete 3) 10))
  160.         (set comp-dirs  (/ (* classact-complete 4) 10))
  161.         (set comp-junod (/ (* classact-complete 5) 10))
  162.         (set comp-020   (/ (* classact-complete 6) 10))
  163.         (set comp-gad   (/ (* classact-complete 7) 10))
  164.         (set comp-im    (/ (* classact-complete 8) 10))
  165.         (set comp-prefs (/ (* classact-complete 9) 10))
  166.     
  167.         ; has the user installed ClassAct in CLASSACT: ?
  168.         (set @classact-dest (getassign "CLASSACT" "A"))
  169.         (if (= @classact-dest "") (set @classact-dest "SYS:Classes"))
  170.         
  171.         ; is ClassAct already in SYS:Classes ?
  172.         (if (or (not (exists (tackon @classact-dest "Gadgets/layout.gadget") (noreq)))
  173.                 (= @user-level 2))
  174.             ; no, ask where it should be placed
  175.             (set @classact-dest
  176.                 (askdir
  177.                     (prompt #classdest-prompt)
  178.                     (help #classdest-help)
  179.                     (default @classact-dest)
  180.                     (newpath)
  181.                 )
  182.             )
  183.         )
  184.         
  185.         (complete comp-dest)
  186.         
  187.         (if (<> (run (cat "C/CheckAssign LIBS: " @classact-dest)) 0)
  188.             (
  189.                 (message #noclasses-message)
  190.                 (if (not (exists @classact-dest))
  191.                     (makedir @classact-dest (prompt (cat #creating-dir @classact-dest)))
  192.                 )
  193.                 (set @addassign (cat "Assign >NIL: LIBS: " @classact-dest " ADD\n"))
  194.                 (startup "CLASSACT"
  195.                     (command @addassign)
  196.                     (prompt (cat #adding-1 @classact-dest #adding-2))
  197.                     (help #adding-help)
  198.                 )
  199.                 (run (@addassign))
  200.             )
  201.         )
  202.         
  203.         (complete comp-libs)
  204.         
  205.         (set @classact-gadgets (tackon @classact-dest "Gadgets"))
  206.         (set @classact-images (tackon @classact-dest "Images"))
  207.         
  208.         (if (not (exists @classact-gadgets (noreq)))
  209.             (makedir @classact-images
  210.                 (prompt (cat #creating-dir @classact-gadgets))
  211.             )
  212.         )
  213.         
  214.         (if (not (exists @classact-images (noreq)))
  215.             (makedir @classact-images
  216.                 (prompt (cat #creating-dir @classact-images))
  217.             )
  218.         )
  219.         
  220.         (complete comp-dirs)
  221.         
  222.         (if (exists "SYS:Classes/Gadgets/button.gadget")
  223.             (if (< 41 (/ (getversion "SYS:Classes/Gadgets/button.gadget") 65536))
  224.                 (if (askbool (prompt #junod-button) (help @askbool-help) (default 1))
  225.                     (
  226.                         (rename "SYS:Classes/Gadgets/button.gadget" "SYS:Classes/Gadgets/button.gadget.v42")
  227.                         (message #junod-backed)
  228.                     )
  229.                     (message #junod-kept)
  230.                 )
  231.             )
  232.         )
  233.         
  234.         (complete comp-junod)
  235.         
  236.         (if (exists "Classes/Gadgets/layout.gadget.020")
  237.             (set classes-020 (askbool (prompt #classes-020) (help #help-020) (default (and cpu020 v39))))
  238.             (set classes-020 0)
  239.         )
  240.  
  241.         (complete comp-020)
  242.         
  243.         (foreach "Classes/Gadgets" "#?.gadget"
  244.             (
  245.                 (set thislib (tackon "Classes/Gadgets" @each-name))
  246.                 (if (and classes-020 (exists (cat thislib ".020")))
  247.                     (set thislib (cat thislib ".020"))
  248.                 )
  249.                 (copylib (source thislib)
  250.                     (dest @classact-gadgets)
  251.                     (newname @each-name)
  252.                     (prompt (cat #installing @each-name))
  253.                     (help #classdest-help)
  254.                     (optional "force" "askuser")
  255.                 )
  256.             )
  257.         )
  258.         
  259.         (complete comp-gad)
  260.         
  261.         (foreach "Classes/Images" "#?.image"
  262.             (
  263.                 (set thislib (tackon "Classes/Images" @each-name))
  264.                 (if (and classes-020 (exists (cat thislib ".020")))
  265.                     (set thislib (cat thislib ".020"))
  266.                 )
  267.                 (copylib (source thislib)
  268.                     (dest @classact-images)
  269.                     (newname @each-name)
  270.                     (prompt (cat #installing @each-name))
  271.                     (help #classdest-help)
  272.                     (optional "force" "askuser")
  273.                 )
  274.             )
  275.         )
  276.         
  277.         (complete comp-im)
  278.  
  279.         (foreach "Classes" "#?.class"
  280.             (
  281.                 (set thislib (tackon "Classes" @each-name))
  282.                 (if (and classes-020 (exists (cat thislib ".020")))
  283.                     (set thislib (cat thislib ".020"))
  284.                 )
  285.                 (copylib (source thislib)
  286.                     (dest @classact-dest)
  287.                     (newname @each-name)
  288.                     (prompt (cat #installing @each-name))
  289.                     (help #classdest-help)
  290.                     (optional "force" "askuser")
  291.                 )
  292.             )
  293.         )
  294.     )
  295.     )
  296.     (
  297.     if (exists "Prefs/ClassAct") ; The archive contains ClassAct prefs tools
  298.     (
  299.         (message #caprefs-message)
  300.         
  301.         (copylib (source "Prefs/CAPrefs") 
  302.             (dest "C:") 
  303.             (prompt (cat #installing "CAPrefs"))
  304.         )
  305. ; Force the copy if the ClassAct file does not exist
  306.       (if (exists "SYS:Prefs/ClassAct")
  307.            (copylib (source "Prefs/ClassAct")
  308.                (dest "SYS:Prefs")
  309.                (prompt (cat #installing "ClassAct"))
  310.                (infos)
  311.            )
  312.          (copyfiles (source "Prefs/ClassAct")
  313.             (dest "SYS:Prefs")
  314.             (prompt (cat #installing "ClassAct"))
  315.             (infos)
  316.          )
  317.       )
  318.         
  319.         (complete comp-prefs)
  320.         
  321.         (if (not (exists "ENVARC:ClassAct" (noreq)))
  322.             (
  323.                 (makedir "ENVARC:ClassAct"
  324.                     (prompt (cat #creating-dir "ENVARC:ClassAct"))
  325.                 )
  326.                 (textfile (dest "ENVARC:ClassAct/ClassAct")
  327.                     (append "")
  328.                 )
  329.             )
  330.         )
  331.                 
  332.         (set caprefs-cmd "C:CAPrefs >NIL:\n")
  333.         
  334.         (startup "CAPREFS"
  335.             (prompt (cat #caprefs-startup-1 caprefs-cmd #caprefs-startup-2))
  336.             (help #caprefs-message)
  337.             (command caprefs-cmd)
  338.         )
  339.     )
  340.     )
  341.  
  342.     (complete classact-complete)
  343. )
  344.  
  345. ; ************** END OF CLASSACT INSTALL PROCEDURE. DO NOT COPY THE BLOCK ABOVE
  346. ; ************** TO YOUR CLASSACT APPLICATION INSTALLER.
  347.  
  348. ; ---------------------------------------------------------------------------
  349.  
  350.  
  351. ; Main installer script begins here.
  352.  
  353. (complete 0)
  354.  
  355. (set @app-name "AWeb-II 2.1 Upgrade")
  356.  
  357. (message #welcome)
  358.  
  359. ; --- check resources ---
  360.  
  361. (if (not v39)
  362.    (abort #need39)
  363. )
  364.  
  365. ; Set the default destination to the AWeb-II: directory.
  366.  
  367. (set @default-dest (getassign "AWeb-II" "A"))
  368.  
  369. ; Ensure that we are installing the update to AWeb-II not a demo version
  370.  
  371. (if (= @default-dest "")
  372.    (abort #needAWebII)
  373. )
  374.  
  375. ; Check to make sure the old version of AWeb-II is 2.0
  376.  
  377. (set awn (getversion "AWeb-II:AWeb-II"))
  378. (set awv (/ awn 65536))
  379. (set awr (- awn (* awv 65536)))
  380.  
  381. (if (or (<> awv 2)
  382.         (<> awr 0)
  383.     )
  384.    (abort (cat #need2point0 ("%ld.%ld " awv awr))
  385.    )
  386. )
  387.  
  388. ; Check disk space available for the update.
  389. (if (< (getdiskspace "AWeb-II:") 1000000)
  390.    (abort #need1meg)
  391. )
  392.  
  393.  
  394. (set #free (getdiskspace "T:"))
  395. (if (= #free "0") ; assume T: is in RAM:
  396.    (set #free (+ (database "total-mem") 0)) ; "+0" to make it numeric
  397. )
  398. (if (< #free 524288)
  399.    (abort #need512k)
  400. )
  401.  
  402. ; --- get the things to install ---
  403.  
  404. (set @source-dir (pathonly @icon))
  405.  
  406. (complete 5)
  407.  
  408. ;==================================================
  409.  
  410. ; --- install AWeb-II program ---
  411.  
  412. ; Install the updated ClassAct classes
  413.  
  414. (P_install-classact)                ; 30 % completion
  415.  
  416. ; Register the AWeb-II software
  417.  
  418. (working #registering)
  419.  
  420. ; Copy the working files into ram to speed the upgrade process
  421.  
  422. (copyfiles
  423.    (source "AWebII_Install:AWebII.prg")
  424.    (dest "T:")
  425. )
  426.  
  427. (copyfiles
  428.    (source "HTMLHeaven_Install:HTML-Heaven3.lha")
  429.    (dest "T:")
  430. )
  431.  
  432. (working #upgradingAWebII)
  433. (run "c/AWebupgrade AwebII.upgrade T:AWebII.prg AWeb-II:AWeb-II.new2.1 AWeb-II:AWeb-II T:HTML-Heaven3.lha")
  434.  
  435. (delete "T:HTML-Heaven3.lha")
  436. (delete "T:AWebII.prg")
  437.  
  438. ; If the upgrade patch was not installed correctly, quit.
  439. (if (< (getsize "AWeb-II:AWeb-II") 100000)
  440.          (abort #registrationfail)
  441. )
  442.  
  443. ; Save the old AWeb-II program in case there is a problem.
  444.  
  445. (rename "AWeb-II:AWeb-II" "AWeb-II:AWeb-II.old")
  446. (rename "AWeb-II:AWeb-II.new2.1" "AWeb-II:AWeb-II")
  447.  
  448. ; Convert preferences
  449.  
  450. (run "c/awebpc AWeb-II:AWeb.prefs")
  451. (copyfiles (source "c/awebpc")
  452.    (dest @default-dest)
  453.    (infos)
  454. )
  455.  
  456. (working #awebpcnote)
  457.  
  458. ; Create the AWeb-II directory structure
  459.  
  460. ; Allow the user to choose the location of the Cache.
  461. (set #CacheDir
  462.    (askdir
  463.       (prompt #CacheDirname-prompt)
  464.       (help #CacheDirname-help)
  465.       (default @default-dest)
  466.    )
  467. )
  468. (set #CacheDir (tackon #CacheDir "Cache"))
  469. (makedir #CacheDir (infos))
  470.  
  471. (textfile
  472.    (dest "ENVARC:AWeb/network")
  473.    (include "ENVARC:AWeb/network")
  474.    (append (cat "CAPA " #CacheDir "\n")
  475.    )
  476. )
  477.  
  478. (copyfiles (source "ENVARC:AWeb/network")
  479.            (dest "ENV:AWeb")
  480. )
  481.  
  482. ; Copy AWeb's configuration program.
  483.  
  484. (copyfiles
  485.    (dest @default-dest)
  486.    (source "AWebCfg")
  487.    (prompt #installing "AWebCfg")
  488.    (infos)
  489. )
  490.  
  491. (complete 60)
  492.  
  493.       ; Install the Documentation for AWeb-II
  494.       ; Fixme - Hard coded for English only docs
  495.  
  496. ; Remove all the old documentation and install the new ones.
  497.  
  498. (delete (tackon @default-dest "Docs")
  499.     (prompt #docsdelete)
  500.     (all)
  501.     (confirm) (help #helpdocsdelete)
  502. )
  503.  
  504. (copyfiles
  505.    (source "Docs")
  506.    (dest (tackon @default-dest "Docs"))
  507.    (all)
  508.    (prompt #installing #aweb-docs)
  509. )
  510.  
  511. (complete 70)
  512.  
  513. (if (exists "README")
  514.     (copyfiles
  515.       (dest @default-dest)
  516.       (source "README")
  517.       (prompt #installing "README")
  518.       (infos)
  519.    )
  520. )
  521.  
  522.  
  523. (copyfiles
  524.    (source "")
  525.    (dest @default-dest)
  526.    (choices "Install_Buttons" "Install_Animation")
  527.    (infos)
  528. )
  529.  
  530. (copyfiles
  531.    (source "Storage")
  532.    (dest (tackon @default-dest "Storage"))
  533.    (all)
  534.    (infos)
  535.    (prompt #installing #buttonanims)
  536. )
  537.  
  538. (copyfiles
  539.    (source "extras")
  540.    (dest (tackon @default-dest "extras"))
  541.    (all)
  542.    (infos)
  543.    (prompt #installing "extras")
  544. )
  545.  
  546. (copyfiles
  547.    (source "fonts")
  548.    (dest "fonts:")
  549.    (all)
  550.    (prompt #installing "fonts")
  551. )
  552.  
  553. (message #fixfontdelay)
  554. (if (exists "sys:system/fixfonts")
  555.   (run "sys:system/fixfonts")
  556.   (message #fixfonts)
  557. )
  558.  
  559. ; Copy over the hidden icons
  560. (copyfiles
  561.    (dest @default-dest)
  562.    (source  "AWeb-II.inf")
  563.    (newname "AWeb-II.info")
  564. )
  565. (copyfiles
  566.    (dest @default-dest)
  567.    (source  "AWeb-II.inf")
  568.    (newname "AWeb-II.old.info")
  569.    (noposition)
  570. )
  571. (tooltype (dest "AWeb-II:AWeb-II.old.info") (noposition))  ; Make sure it doesn't cover the new AWeb-II icon
  572. (copyfiles
  573.    (dest @default-dest)
  574.    (source  "AWebCfg.inf")
  575.    (newname "AWebCfg.info")
  576. )
  577. (copyfiles
  578.    (dest @default-dest)
  579.    (source  "Install_Animation.inf")
  580.    (newname "Install_Animation.info")
  581. )
  582. (copyfiles
  583.    (dest @default-dest)
  584.    (source  "Install_Buttons.inf")
  585.    (newname "Install_Buttons.info")
  586. )
  587.  
  588.  
  589. ; Ask the user if they have modified their plugin AREXX scripts.
  590. (if (askbool (prompt #pluginmodprompt) (help #pluginmodhelp) (default 0))
  591.   (
  592.       ;Save the user modified plugin scripts
  593.       (working #pluginsave)
  594.  
  595.       ; Try to rename the files    
  596.       (rename "AWeb-II:Plugins/AWebFTP/AWebFTP.awebrx" "AWeb-II:Plugins/AWebFTP/AWebFTP.awebrx.old")
  597.       (rename "AWeb-II:Plugins/AWebMail/AWebMailsend.awebrx" "AWeb-II:Plugins/AWebMail/AWebMailsend.awebrx.old")
  598.       (rename "AWeb-II:Plugins/AWebMail/AWebMailConfig.awebrx" "AWeb-II:Plugins/AWebMail/AWebMailConfig.awebrx.old")
  599.       (rename "AWeb-II:Plugins/HTTX/HTTX.awebrx" "AWeb-II:Plugins/HTTX/HTTX.awebrx.old")
  600.       (rename "AWeb-II:Plugins/HTTX/HTTXConfig.awebrx" "AWeb-II:Plugins/HTTX/HTTXConfig.awebrx.old")
  601.       (rename "AWeb-II:Plugins/HTTX/HTTXprt.awebrx" "AWeb-II:Plugins/HTTX/HTTXprt.awebrx.old")
  602.   )
  603. )
  604.  
  605. (if (exists "AWeb-II:Plugins/AWebFTP")
  606.    (copyfiles
  607.       (source "Plugins/AWebFTP")
  608.       (dest "AWeb-II:Plugins/AWebFTP")
  609.       (all)
  610.       (prompt #installing "AWebFTP" #pluginupdate)
  611.    )
  612. )
  613.  
  614. (if (exists "AWeb-II:Plugins/AWebMail")
  615.    (copyfiles
  616.       (source "Plugins/AWebMail")
  617.       (dest "AWeb-II:Plugins/AWebMail")
  618.       (all)
  619.       (prompt #installing "AWebMail" #pluginupdate)
  620.    )
  621. )
  622.  
  623. (if (exists "AWeb-II:Plugins/HTTX")
  624.    (copyfiles
  625.       (source "Plugins/HTTX")
  626.       (dest "AWeb-II:Plugins/HTTX")
  627.       (all)
  628.       (prompt #installing "HTTX" #pluginupdate)
  629.    )
  630. )
  631.  
  632. (complete 90)
  633.  
  634. ; Install the languages
  635. ; Fixme - The default should be the users locale preference
  636.  
  637. (set languages
  638.    (askoptions
  639.       (choices "English" "Deutsch" "Français" "Greek"
  640.          "Nederlands" "Norsk" "Svenska"
  641.          "Dansk" "Español" "Italiano" "Polski"
  642.       )
  643.       (prompt #languages-prompt)
  644.       (help #languages-help)
  645.       (default 1)
  646.    )
  647. )
  648.  
  649. (complete 95)
  650.  
  651. ; If any language catalogs are selected, copy them.
  652.  
  653. (if (bitand languages 65534)
  654.    (
  655.       (set catdir (tackon @default-dest "Catalogs"))
  656.       (if (not (exists catdir))
  657.          (makedir catdir
  658.             (prompt #creating-dir catdir) 
  659.   (infos)
  660.          )
  661.       )
  662.       (set bit 2)    ; English implementation, so there is no catalog for it
  663.       (set langnr 1)
  664.       (while (< langnr 13)
  665.          (if (bitand languages bit)
  666.             (
  667.                (set lang
  668.                   ; English is never selected from this list
  669.                   (select langnr "English" "Deutsch" "Français" "Greek"
  670.                      "Nederlands" "Norsk" "Svenska"
  671.                      "Dansk" "Español" "Italiano" "Polski"
  672.                   )
  673.                )
  674.                (copyfiles
  675.                   (source (tackon "Catalogs" lang))
  676.                   (choices "AWeb.catalog")
  677.                   (dest (tackon catdir lang))
  678.                )
  679.               ; Display Copyright message for Greek
  680.                (if (= 3 langnr) 
  681.                   (message #languageGreek-message)
  682.                )
  683.             )
  684.          )
  685.          (set bit (shiftleft bit 1))
  686.          (set langnr (+ langnr 1))
  687.       )
  688.    )
  689. )
  690.  
  691. (complete 100)
  692.  
  693.  
  694. (exit 
  695.            #bye
  696. )
  697.  
  698.